home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1997 / MacHack 1997.toast / Hacks / Hacks ’96 / Talking Telnet / source / Url / url.c next >
Text File  |  1996-06-22  |  18KB  |  666 lines
  1. /****************************************************************
  2. *    NCSA Telnet for the Macintosh                                *
  3. *                                                                *
  4. *    National Center for Supercomputing Applications                *
  5. *    Software Development Group                                    *
  6. *    152 Computing Applications Building                            *
  7. *    605 E. Springfield Ave.                                        *
  8. *    Champaign, IL  61820                                        *
  9. *                                                                *
  10. *    Copyright (c) 1986-1994,                                    *
  11. *    Board of Trustees of the University of Illinois                *
  12. ****************************************************************/
  13. #include "rsinterf.proto.h"
  14. #include "IConfig.proto.h"
  15. #include "url.proto.h"
  16. #include "vsdata.h"//because the damn prototype on the next line needs it  
  17. #include "vsinterf.proto.h"
  18.  
  19. TURLKind ParseURL(Handle urlH);
  20.  
  21. Boolean MyStrNEqual (char *s1, char *s2, short n);
  22. OSErr FindAppOnVolume (OSType sig, short vRefNum, FSSpec *file);
  23. OSErr FindAppFromSig (OSType sig, FSSpec *fSpec, Boolean *running,
  24.      ProcessSerialNumber *psn);
  25. OSErr FindRunningAppBySignature (OSType sig, FSSpec *fSpec,
  26.     ProcessSerialNumber *psn);
  27. OSErr LaunchAppWithEventAndString (Boolean running, FSSpec *appSpec, ProcessSerialNumber *psn,
  28.     OSType eventClass, OSType eventID, OSType keyword, char *str, 
  29.     unsigned short launchFileFlags, unsigned short launchControlFlags);
  30. OSErr OpenHelperWithURL (OSType sig, char *url);
  31. OSErr GetLastModDateTime(FSSpec *fSpec, unsigned long *lastModDateTime);
  32. OSErr VolHasDesktopDB (short vRefNum, Boolean *hasDesktop);
  33. OSErr GetIndVolume (short index, short *vRefNum);
  34.  
  35. #define kGetURLEventClass                'GURL'
  36. #define kGetURLEventID                    'GURL'
  37.  
  38. static unsigned char gTable[256] = {
  39.     0x00, 0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07, 0x08, 0x09, 0x0A, 0x0B, 0x0C, 0x0D, 0x0E, 0x0F,
  40.     0x10, 0x11, 0x12, 0x13, 0x14, 0x15, 0x16, 0x17, 0x18, 0x19, 0x1A, 0x1B, 0x1C, 0x1D, 0x1E, 0x1F,
  41.     0x20, 0x21, 0x22, 0x23, 0x24, 0x25, 0x26, 0x27, 0x28, 0x29, 0x2A, 0x2B, 0x2C, 0x2D, 0x2E, 0x2F,
  42.     0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37, 0x38, 0x39, 0x3A, 0x3B, 0x3C, 0x3D, 0x3E, 0x3F,
  43.     0x40, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47, 0x48, 0x49, 0x4A, 0x4B, 0x4C, 0x4D, 0x4E, 0x4F,
  44.     0x50, 0x51, 0x52, 0x53, 0x54, 0x55, 0x56, 0x57, 0x58, 0x59, 0x5A, 0x5B, 0x5C, 0x5D, 0x5E, 0x5F,
  45.     0x60, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47, 0x48, 0x49, 0x4A, 0x4B, 0x4C, 0x4D, 0x4E, 0x4F,
  46.     0x50, 0x51, 0x52, 0x53, 0x54, 0x55, 0x56, 0x57, 0x58, 0x59, 0x5A, 0x7B, 0x7C, 0x7D, 0x7E, 0x7F,
  47.     0x41, 0x41, 0x43, 0x45, 0x4E, 0x4F, 0x55, 0x41, 0x41, 0x41, 0x41, 0x41, 0x41, 0x43, 0x45, 0x45,
  48.     0x45, 0x45, 0x49, 0x49, 0x49, 0x49, 0x4E, 0x4F, 0x4F, 0x4F, 0x4F, 0x4F, 0x55, 0x55, 0x55, 0x55,
  49.     0xA0, 0xA1, 0xA2, 0xA3, 0xA4, 0xA5, 0xA6, 0xA7, 0xA8, 0xA9, 0xAA, 0xAB, 0xAC, 0xAD, 0xAE, 0x4F,
  50.     0xB0, 0xB1, 0xB2, 0xB3, 0xB4, 0xB5, 0xB6, 0xB7, 0xB8, 0xB9, 0xBA, 0xBB, 0xBC, 0xBD, 0xAE, 0x4F,
  51.     0xC0, 0xC1, 0xC2, 0xC3, 0xC4, 0xC5, 0xC6, 0x22, 0x22, 0xC9, 0x20, 0x41, 0x41, 0x4F, 0xAE, 0xAE,
  52.     0xD0, 0xD1, 0x22, 0x22, 0x27, 0x27, 0xD6, 0xD7, 0x59, 0xD9, 0xDA, 0xDB, 0xDC, 0xDD, 0xDE, 0xDF,
  53.     0xE0, 0xE1, 0xE2, 0xE3, 0xE4, 0xE5, 0xE6, 0xE7, 0xE8, 0xE9, 0xEA, 0xEB, 0xEC, 0xED, 0xEE, 0xEF,
  54.     0xF0, 0xF1, 0xF2, 0xF3, 0xF4, 0xF5, 0xF6, 0xF7, 0xF8, 0xF9, 0xFA, 0xFB, 0xFC, 0xFD, 0xFE, 0xFF,
  55. };
  56.  
  57. char *gURLSchemeNames[] = {
  58.     ":",        /* kNotURL */
  59.     "mailto:",    
  60.     "news:",
  61.     "nntp:",
  62.     "ftp:",
  63.     "http:",
  64.     "gopher:",
  65.     "wais:",
  66.     "telnet:",
  67.     "rlogin:",
  68.     "tn3270:",
  69.     "finger:",
  70.     "whois:",
  71.     nil
  72. };
  73.  
  74. void UnloadURL(void) { }
  75.  
  76. Boolean MyStrNEqual (char *s1, char *s2, short n)
  77. {
  78.     unsigned char *t = gTable;
  79.     unsigned char *us1 = (unsigned char *)s1;
  80.     unsigned char *us2 = (unsigned char *)s2;
  81.  
  82.     while (--n >= 0 && t[*us1++] == t[*us2++]) /* do nothing */;
  83.     return n < 0;
  84. }
  85.  
  86. #define CR            0x0d    /* the carriage return character */
  87.  
  88.  
  89. #define isLWSP(a) ((a) == ' ' || (a) == '\t')
  90. #define isLWSPorCR(a) (isLWSP(a) || (a) == CR)
  91.  
  92. void HandleURL(short w)
  93. {
  94.     Handle urlH;
  95.     TURLKind urlKind;
  96.     OSErr err;
  97.     OSType sig;
  98.     
  99.     urlH = RSGetTextSel(w, 0);
  100.     if ((urlH == (char **)-1L) || (urlH == nil)) {
  101.         return;
  102.     }
  103.     
  104.     HLock(urlH);
  105.         
  106.     urlKind = ParseURL(urlH);
  107.     
  108.     if (urlKind == kNotURL)
  109.         return;
  110.     else if ((urlKind == kTelnetURL)||(urlKind == kRloginURL))
  111.     {    //we handle this, send apple event to ourselves
  112.         ProcessSerialNumber psn;
  113.         unsigned short launchControlFlags;
  114.         FlashSelection(w);
  115.         launchControlFlags = launchContinue | launchNoFileFlags;
  116.         launchControlFlags |= launchDontSwitch;
  117.  
  118.         GetCurrentProcess(&psn);
  119.         err = LaunchAppWithEventAndString(TRUE, NULL, &psn,
  120.                 kGetURLEventClass, kGetURLEventID,
  121.                 keyDirectObject, *urlH, 0, launchControlFlags);
  122.         return;
  123.     }
  124.     else
  125.         sig = GetHelperInfo(urlKind);
  126.     if (sig == NULL)
  127.         return;
  128.     FlashSelection(w);
  129.     err = OpenHelperWithURL(sig, *urlH);
  130.     return;
  131. }
  132.  
  133. TURLKind ParseURL(Handle urlH)
  134. {
  135.     short size;
  136.     char *textBegin, *textEnd, *p;
  137.     TURLKind urlKind;
  138.     char *schemeName;
  139.  
  140.  
  141.     size = GetHandleSize(urlH);
  142.     textBegin = *urlH;
  143.     textEnd = *urlH + size - 1;
  144.     
  145.     /* strip off leading white space and lagging white space */
  146.     while (isLWSPorCR(*textBegin) && textBegin < textEnd) textBegin++;
  147.     while (isLWSPorCR(*textBegin) && textBegin < textEnd) textEnd--;
  148.     
  149.         
  150.     /* look for < and > on each end, strip em off */
  151.     if (*textBegin == '<') 
  152.         textBegin++;
  153.     if (*textEnd   == '>') 
  154.         textEnd--;
  155.     
  156.     /* look for URL:, strip it*/
  157.     
  158.     if ((MyStrNEqual("URL:", textBegin, 4)))
  159.         textBegin += 4;
  160.     
  161.     size = textEnd - textBegin + 1;
  162.     
  163.     if (size <= 0)
  164.         return kNotURL;        
  165.     
  166.     /* strip CR inside */
  167.     
  168.     p = textBegin;
  169.     while (p < textEnd)
  170.     {
  171.         if (*p == CR)
  172.         {
  173.             BlockMoveData(p+1,  p,size - (p-textBegin + 1));
  174.             size--;
  175.             textEnd--;
  176.         }
  177.         else
  178.             p++;
  179.     }
  180.             
  181.     /* Clean up and NULL terminate */
  182.     BlockMoveData(textBegin, *urlH, size);
  183.     *(*urlH + size) = 0;
  184.     
  185.     /* get url type */
  186.     p = *urlH;
  187.     while ((*p != ':')&&(p < *urlH + size - 1)) p++;
  188.     if (p - *urlH >= size - 1) // colon not found
  189.     {
  190.         /* might be mail address */
  191.         //if (isMailAddress(urlH))
  192.         //    return kMailtoURL;
  193.     //    else
  194.             return kNotURL;
  195.     }
  196.     
  197.     for (urlKind = kNotURL; ; urlKind++) {
  198.         schemeName = gURLSchemeNames[urlKind];
  199.         if (schemeName == nil) return kNotURL;
  200.         if (MyStrNEqual(*urlH, schemeName, strlen(schemeName))) return urlKind;
  201.     }
  202. }
  203.  
  204. OSErr FindAppOnVolume (OSType sig, short vRefNum, FSSpec *file)
  205. {
  206.     DTPBRec pb;
  207.     OSErr err = noErr;
  208.     short ioDTRefNum, i;
  209.     FInfo fInfo;
  210.     FSSpec candidate;
  211.     unsigned long lastModDateTime, maxLastModDateTime;
  212.  
  213.     memset(&pb, 0, sizeof(DTPBRec));
  214.     pb.ioCompletion = nil;
  215.     pb.ioVRefNum = vRefNum;
  216.     pb.ioNamePtr = nil;
  217.     err = PBDTGetPath(&pb);
  218.     if (err != noErr) return err;
  219.     ioDTRefNum = pb.ioDTRefNum;
  220.  
  221.     memset(&pb, 0, sizeof(DTPBRec));
  222.     pb.ioCompletion = nil;
  223.     pb.ioIndex = 0;
  224.     pb.ioFileCreator = sig;
  225.     pb.ioNamePtr = file->name;
  226.     pb.ioDTRefNum = ioDTRefNum;
  227.     err = PBDTGetAPPLSync(&pb);
  228.     
  229.     if (err == fnfErr || err == paramErr) return afpItemNotFound;
  230.     if (err != noErr) return err;
  231.  
  232.     file->vRefNum = vRefNum;
  233.     file->parID = pb.ioAPPLParID;
  234.     
  235.     err = FSpGetFInfo(file, &fInfo);
  236.     if (err == noErr) return noErr;
  237.     
  238.     i = 1;
  239.     maxLastModDateTime = 0;
  240.     while (true) {
  241.         memset(&pb, 0, sizeof(DTPBRec)); 
  242.         pb.ioCompletion = nil;
  243.         pb.ioIndex = i;
  244.         pb.ioFileCreator = sig;
  245.         pb.ioNamePtr = candidate.name;
  246.         pb.ioDTRefNum = ioDTRefNum;
  247.         err = PBDTGetAPPLSync(&pb);
  248.         if (err != noErr) break;
  249.         candidate.vRefNum = vRefNum;
  250.         candidate.parID = pb.ioAPPLParID;
  251.         err = GetLastModDateTime(file, &lastModDateTime);
  252.         if (err == noErr) {
  253.             if (lastModDateTime > maxLastModDateTime) {
  254.                 maxLastModDateTime = lastModDateTime;
  255.                 *file = candidate;
  256.             }
  257.         }
  258.         i++;
  259.     }
  260.     
  261.     return maxLastModDateTime > 0 ? noErr : afpItemNotFound;
  262. }
  263. /*----------------------------------------------------------------------------
  264.     GetLastModDateTime
  265.     
  266.     Get the last mod date and time of a file.
  267.     
  268.     Entry:    fSpec = pointer to file spec.
  269.     
  270.     Exit:    function result = error code.
  271.             *lastModDateTime = last mod date and time.
  272. ----------------------------------------------------------------------------*/
  273.  
  274.  
  275. OSErr GetLastModDateTime(FSSpec *fSpec, unsigned long *lastModDateTime)
  276. {
  277.     CInfoPBRec pBlock;
  278.     OSErr err = noErr;
  279.     
  280.     pBlock.hFileInfo.ioNamePtr = fSpec->name;
  281.     pBlock.hFileInfo.ioVRefNum = fSpec->vRefNum;
  282.     pBlock.hFileInfo.ioFDirIndex = 0;
  283.     pBlock.hFileInfo.ioDirID = fSpec->parID;
  284.     err = PBGetCatInfoSync(&pBlock);
  285.     if (err != noErr) return err;
  286.     *lastModDateTime = pBlock.hFileInfo.ioFlMdDat;
  287.     return noErr;
  288. }
  289.  
  290. /*----------------------------------------------------------------------------
  291.     VolHasDesktopDB 
  292.     
  293.     Check to see if a volume supports the new desktop database.
  294.     
  295.     Entry:    vRefNum = vol ref num of volumn
  296.             
  297.     Exit:    function result = error code.
  298.             *hasDesktop = true if volume has the new desktop database.
  299. ----------------------------------------------------------------------------*/
  300.  
  301. OSErr VolHasDesktopDB (short vRefNum, Boolean *hasDesktop)
  302. {
  303.     HParamBlockRec pb;
  304.     GetVolParmsInfoBuffer info;
  305.     OSErr err = noErr;
  306.     
  307.     pb.ioParam.ioCompletion = nil;
  308.     pb.ioParam.ioNamePtr = nil;
  309.     pb.ioParam.ioVRefNum = vRefNum;
  310.     pb.ioParam.ioBuffer = (Ptr)&info;
  311.     pb.ioParam.ioReqCount = sizeof(info);
  312.     err = PBHGetVolParmsSync(&pb);
  313.     *hasDesktop = err == noErr && (info.vMAttrib & (1L << bHasDesktopMgr)) != 0;
  314.     return err;
  315. }
  316.  
  317. OSErr FindAppFromSig (OSType sig, FSSpec *fSpec, Boolean *running,
  318.      ProcessSerialNumber *psn)
  319. {
  320.     OSErr err = noErr;
  321.     short sysVRefNum, vRefNum, index;
  322.     Boolean hasDesktopDB;
  323.     long junk;
  324.     
  325.     if (running != nil) {
  326.         err = FindRunningAppBySignature(sig, fSpec, psn);
  327.         *running = true;
  328.         if (err == noErr) return noErr;
  329.         *running = false;
  330.         if (err != procNotFound) return err;
  331.     }
  332.     err = FindFolder(kOnSystemDisk, kSystemFolderType, false, &sysVRefNum, &junk);
  333.     if (err != noErr) return err;
  334.     vRefNum = sysVRefNum;
  335.     index = 0;
  336.     while (true) {
  337.         if (index == 0 || vRefNum != sysVRefNum) {
  338.             err = VolHasDesktopDB(vRefNum, &hasDesktopDB);
  339.             if (err != noErr) return err;
  340.             if (hasDesktopDB) {
  341.                 err = FindAppOnVolume(sig, vRefNum, fSpec);
  342.                 if (err != afpItemNotFound) return err;
  343.             }
  344.         }
  345.         index++;
  346.         err = GetIndVolume(index, &vRefNum);
  347.         if (err == nsvErr) return fnfErr;
  348.         if (err != noErr) return err;
  349.     }
  350. }
  351.  
  352. OSErr GetIndVolume (short index, short *vRefNum)
  353. {
  354.     ParamBlockRec pb;
  355.     OSErr err = noErr;
  356.     
  357.     pb.volumeParam.ioCompletion = nil;
  358.     pb.volumeParam.ioNamePtr = nil;
  359.     pb.volumeParam.ioVolIndex = index;
  360.     
  361.     err = PBGetVInfoSync(&pb);
  362.     
  363.     *vRefNum = pb.volumeParam.ioVRefNum;
  364.     return err;
  365. }
  366.  
  367. /*----------------------------------------------------------------------------
  368.     FindRunningAppBySignature 
  369.     
  370.     Find a running app given its signature.
  371.     
  372.     Entry:    sig = signature of app.
  373.             
  374.     Exit:    function result = error code.
  375.                 = procNotFound if not running.
  376.             *fSpec = file spec of app. 
  377.             *psn = process serial number of running app.
  378. ----------------------------------------------------------------------------*/
  379.  
  380. OSErr FindRunningAppBySignature (OSType sig, FSSpec *fSpec,
  381.     ProcessSerialNumber *psn)
  382. {
  383.     OSErr err = noErr;
  384.     ProcessInfoRec info;
  385.     
  386.     psn->highLongOfPSN = 0;
  387.     psn->lowLongOfPSN  = kNoProcess;
  388.     while (true) {
  389.         err = GetNextProcess(psn);
  390.         if (err != noErr) return err;
  391.         info.processInfoLength = sizeof(info);
  392.         info.processName = nil;
  393.         info.processAppSpec = fSpec;
  394.         err = GetProcessInformation(psn, &info);
  395.         if (err != noErr) return err;
  396.         if (info.processSignature == sig) return noErr;
  397.     }
  398. }
  399.  
  400. /*----------------------------------------------------------------------------
  401.     LaunchAppWithEventAndString 
  402.     
  403.     Launch an application with an initial event with a string parameter.
  404.     
  405.     Entry:    running = true if application is running, in which case
  406.                 it is sent the odoc event.
  407.             appSpec = file spec of application.
  408.             *psn = process serial number of app if it is running.
  409.             eventClass = event class.
  410.             eventID = event id.
  411.             keyword = parameter keyword (keyDirectObject if string is the
  412.                 direct object).
  413.             str = the string parameter for the event.
  414.             launchFileFlags = file flags.
  415.             launchControlFlags = control flags.
  416.             
  417.     Exit:    function result = error code.
  418. ----------------------------------------------------------------------------*/
  419.  
  420. OSErr LaunchAppWithEventAndString (Boolean running, FSSpec *appSpec, ProcessSerialNumber *psn,
  421.     OSType eventClass, OSType eventID, OSType keyword, char *str, 
  422.     unsigned short launchFileFlags, unsigned short launchControlFlags)
  423. {
  424.     ProcessSerialNumber thePSN;
  425.     LaunchParamBlockRec launchThis;
  426.     AEDesc target = {0, nil};
  427.     AEDesc stringDesc = {0, nil};
  428.     AEDesc launchDesc = {0, nil};
  429.     AppleEvent theEvent = {0, nil};
  430.     AppleEvent theReply = {0, nil};
  431.     OSErr err = noErr;
  432.     Boolean autoParamValue = false;
  433.  
  434.     if (running) thePSN = *psn;
  435.     err = AECreateDesc(typeProcessSerialNumber, &thePSN, sizeof(thePSN), &target); 
  436.     if (err != noErr) goto exit;
  437.     err = AECreateAppleEvent(eventClass, eventID, &target,
  438.         kAutoGenerateReturnID, kAnyTransactionID, &theEvent);
  439.     if (err != noErr) goto exit;
  440.     err = AECreateDesc(typeChar, str, strlen(str), &stringDesc);
  441.     if (err != noErr) goto exit;
  442.     err = AEPutParamDesc(&theEvent, keyword, &stringDesc);
  443.     if (err != noErr) goto exit;
  444.     if (running) {
  445.         err = AESend(&theEvent, &theReply, kAENoReply, kAENormalPriority, kNoTimeOut,
  446.             nil, nil);
  447.         if (err != noErr) goto exit;
  448.         if ((launchControlFlags & launchDontSwitch) == 0) {
  449.             err = SetFrontProcess(psn);
  450.             if (err != noErr) goto exit;
  451.         }
  452.     } else {
  453.         err = AECoerceDesc(&theEvent, typeAppParameters, &launchDesc);
  454.         if (err != noErr) goto exit;
  455.         HLock(theEvent.dataHandle);
  456.         launchThis.launchAppSpec = appSpec;
  457.         launchThis.launchAppParameters = (AppParametersPtr)*launchDesc.dataHandle;
  458.         launchThis.launchBlockID = extendedBlock;
  459.         launchThis.launchEPBLength = extendedBlockLen;
  460.         launchThis.launchFileFlags = launchFileFlags;
  461.         launchThis.launchControlFlags = launchControlFlags;
  462.         err = LaunchApplication(&launchThis);
  463.     }
  464.     
  465. exit:
  466.  
  467.     if (target.dataHandle != nil) AEDisposeDesc(&target);
  468.     if (stringDesc.dataHandle != nil) AEDisposeDesc(&stringDesc);
  469.     if (launchDesc.dataHandle != nil) AEDisposeDesc(&launchDesc);
  470.     if (theEvent.dataHandle != nil) AEDisposeDesc(&theEvent);
  471.     if (theReply.dataHandle != nil) AEDisposeDesc(&theReply);
  472.     return err;
  473. }
  474. /*----------------------------------------------------------------------------
  475.     OpenHelperWithURL
  476.     
  477.     Open a helper program and pass it a URL string.
  478.     
  479.     Entry:    helperInfo = pointer to helper info.
  480.             url = URL string.
  481.     
  482.     Exit:    function result = error code.
  483. ----------------------------------------------------------------------------*/
  484. OSErr OpenHelperWithURL (OSType sig, char *url)
  485. {
  486.     OSErr err = noErr;
  487.     ProcessSerialNumber psn;
  488.     FSSpec appSpec;
  489.     Boolean running;
  490.     unsigned short launchControlFlags;
  491.     
  492.     launchControlFlags = launchContinue | launchNoFileFlags;
  493.         
  494.     err = FindAppFromSig(sig, &appSpec, &running, &psn);
  495.     if (err != noErr) return err;            
  496.             
  497.     err = LaunchAppWithEventAndString(running, &appSpec, &psn,
  498.                 kGetURLEventClass, kGetURLEventID,
  499.                 keyDirectObject, url, 0, launchControlFlags);
  500.     return err;
  501. }
  502. #define isurlschemechar(c)                (isalnum((c)) || c == '+' || c == '.' || c == '-')
  503.  
  504. Boolean FindURLAroundPoint(Point curr, short w)
  505. {
  506.     /* called by RSSelect when Command Click has occured outside any selection.
  507.    This routine looks for urls around the current point, makes that the selected area if 
  508.    it finds one, and returns TRUE.  Otherwise leaves the current selection area untouched
  509.    and returns FALSE. */
  510. /* Note: the point we receive is already normalized to a character position */
  511.     short columns;    
  512.     Handle block;
  513.     char *original, *start, *end, *textEnd, *p, *q;
  514.     short i, numLines = 1;
  515.     char EOLS = CR;
  516.     short neededLines, endLine = 0, startLine = 0;
  517.     short blockSize;
  518.     Point startPoint, endPoint;
  519.     short  currentLine;
  520.     char *tempBlockPtr;
  521.     short tempCounter, lineLength[20];
  522.     Boolean found = FALSE, allowSpaces=FALSE;
  523.     
  524.     columns = VSgetcols(w) + 1; //VSgetcols returns one less than the number of columns
  525.     
  526.     /* we need enough space to find a 255 char URL on either side of the cursor */
  527.     neededLines = 510/columns; 
  528.     if (255%columns != 0)
  529.         neededLines += 2;
  530.     
  531.     /* want it to be symmetric about this line */
  532.     if (neededLines%2 == 0)
  533.         neededLines += 1;
  534.     
  535.     blockSize = neededLines*(columns + 1); //we need space for the \r
  536.     
  537.     block = myNewHandle((long)blockSize);
  538.     
  539.     textEnd = *block + blockSize;
  540.     
  541.     HLock(block);
  542.  
  543.     /* get the lines we need */
  544.     VSgettext(w, 0, curr.v-(neededLines-1)/2, columns-1, curr.v+(neededLines-1)/2, *block, blockSize, &EOLS, 0); 
  545.     
  546.     original = *block;
  547.     for (i = 0; i < (neededLines-1)/2; i++)
  548.     {
  549.         while (*original != CR)
  550.             original++;
  551.         original++;
  552.     }
  553.     original+= curr.h + 1;
  554.  
  555.     tempBlockPtr = *block;
  556.     for (i = 0; i < neededLines; i++)
  557.     {
  558.         tempCounter = 0;
  559.         while (*tempBlockPtr++ != CR) tempCounter++;
  560.         lineLength[i] = tempCounter;
  561.     }
  562.  
  563.     p = original;
  564.     
  565.     q = original - 1;
  566.     currentLine = (neededLines-1)/2 + 1;
  567.     while ((!found)&&(p > *block))
  568.     {
  569.         while (p >= *block && !isLWSPorCR(*p) && *p != '<' && *p != '"') p--;
  570.         if (*p == CR)
  571.         {
  572.             if (lineLength[currentLine - 2] == columns)
  573.             {    
  574.                 p--; //this is just a wrapped line
  575.                 currentLine--;
  576.             }
  577.             else
  578.                 found = TRUE;
  579.         }
  580.         else
  581.             found = TRUE;
  582.     }
  583.     
  584.     startLine = currentLine;
  585.     if (*p != '<') 
  586.         p++;
  587.     else
  588.         allowSpaces = TRUE;
  589.     
  590.     
  591.     currentLine = (neededLines-1)/2 + 1;
  592.     
  593.     found = FALSE;
  594.     while (!found)
  595.     {
  596.         while (q < textEnd && (*q != CR) &&(!isLWSP(*q) || allowSpaces) 
  597.                         && *q != '>' && *q != '"') q++;
  598.         if (*q == CR)
  599.         {
  600.             if (lineLength[currentLine-1] == columns)
  601.             {    
  602.                 q++; //this is just a wrapped line
  603.                 currentLine++;
  604.             }
  605.             else
  606.                 found = TRUE;
  607.         }
  608.         else
  609.             found = TRUE;
  610.     }
  611.     endLine = currentLine;
  612.     if (*q != '>') q--;
  613.     
  614.     if (p >= q) return FALSE;
  615.  
  616.     while (p < q && (isLWSPorCR(*p))) p++;
  617.     while (p < q && (isLWSPorCR(*q))) q--;
  618.  
  619.     if (*p == '<') 
  620.     {
  621.         if (*q != '>') return FALSE;
  622.     }
  623.     else 
  624.     {
  625.         if (*q == '>') return FALSE;
  626.     } 
  627.  
  628.     start = p;
  629.     end = q;
  630.  
  631.              
  632.     UnHiliteSelection(w);
  633.     HUnlock(block);
  634.     
  635.     startPoint.v = curr.v - ((neededLines-1)/2 + 1 - startLine);
  636.     endPoint.v   = curr.v + (endLine -(neededLines-1)/2 - 1);
  637.     
  638.     if (startPoint.v == curr.v)
  639.         startPoint.h = curr.h - (original - start);
  640.     else
  641.     {
  642.         long numChars = 0;
  643.         for (i = 0; i < startLine - 1; i++)
  644.             numChars += lineLength[i] + 1;
  645.         startPoint.h = (start - *block - numChars - 1);
  646.     }    
  647.     if (endPoint.v == curr.v)
  648.         endPoint.h = curr.h + (end - original + 1);
  649.     else
  650.     {
  651.         long numChars = 0;
  652.         for (i = 0; i < endLine - 1; i++)
  653.             numChars += lineLength[i] + 1;
  654.         endPoint.h = (end - *block - numChars);
  655.     }    
  656.  
  657.     HiliteThis(w, startPoint, endPoint);
  658.     
  659.     return TRUE;
  660. }
  661.     
  662.             
  663.         
  664.         
  665.         
  666.